home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_2002-01_2002_CSW_Side_A.d64
/
calculate sintab
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
118b
|
8 lines
10 tb=4096
100 foran=0to2*(NULL)step2*(NULL)/256
200 y=sin(an)*255+.5
300 poketb,yand255
400 x=0:ify<0thenx=255
500 poketb+256,x
600 tb=tb+1:next